Imports MySql.Data.MySqlClient
Public Class FrmEleccionJuego
    Private con As New Conexion
    Private metodosPanelClass As New PanelClasss
    Public tablaPaneles As DataTable
    Private Sub FrmEleccionJuego_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        llenarJuegos(cmbJuegos)
        Label1.Text = obtenerMetodoJuego(cmbJuegos.SelectedValue.ToString)
        tablaPaneles = New DataTable
    End Sub

    Private Sub btnCargar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCargar.Click
        grupbox1.optimizar.Enabled = False
        grupbox1.Btnverif.Enabled = False
        grupbox1.BtnReiniciar_Click(Nothing, Nothing)
        grupbox1.btnIniciar.Enabled = True
        grupbox1.Label52.Text = ""
        Dim tablaJuego As New DataTable
        Dim datos As New MySqlDataAdapter("SELECT jue_fil, jue_col, jue_costoInicial,est_id,jue_costoFinal,jue_iteraciones FROM juegoprincipal WHERE juegoprincipal.jue_id=" + cmbJuegos.SelectedValue.ToString, con.conexion)
        con.conectar()
        datos.Fill(tablaJuego)
        Dim row As DataRow = tablaJuego.Rows(tablaJuego.Rows.Count - 1)
        grupbox1.NumEmpresas.Value = (row("jue_fil"))
        grupbox1.NumBodegas.Value = (row("jue_col"))
        'If (row("est_id") = 2) Then  'es est_id para saber si esta resuelto
        grupbox1.Label52.Text = "Costo Inicial: " & FormatNumber(row("jue_costoInicial"), 0)
        grupbox1.Label54.Text = "Costo Final  : " & FormatNumber(row("jue_costoFinal"), 0)
        grupbox1.Label53.Text = "Iteraciones: " & row("jue_iteraciones")
        grupbox1.Label53.Enabled = True
        grupbox1.btnIniciar.Enabled = False
        grupbox1.btnIniciar.Text = "Jugar"
        'End If
        con.cerrar()
        Dim datos1 As New MySqlDataAdapter("SELECT pan_costo,pan_asig,pan_ver,pan_fil,pan_col FROM juegoprincipal,panel WHERE juegoprincipal.jue_id=panel.jue_id AND juegoprincipal.jue_id=" + cmbJuegos.SelectedValue.ToString, con.conexion)
        con.conectar()
        datos1.Fill(tablaPaneles)
        con.cerrar()
        'restaria recorrer la matriz poner los valores en la matriz y en el formulario'
        For Each filas As DataRow In tablaPaneles.Rows
            Dim panelContenedor As New PanelClasss
            panelContenedor.fila = filas.Item(3)
            panelContenedor.columna = filas.Item(4)
            panelContenedor.costo = filas.Item(0)
            panelContenedor.asignacion = filas.Item(1)
            panelContenedor.verificacion = filas.Item(2)
            grupbox1.matriz(filas.Item(3), filas.Item(4)) = panelContenedor
        Next
        'hay que hacer otro generar porque el que tenemos borra todo
        ' hay que cargar los valores de los numeric para que no los equilibre de nuevo.
        grupbox1.cargarPanelesEnJuego()

        Dim tablanumeric As New DataTable
        For i = 1 To grupbox1.NumEmpresas.Value
            For Each elemento As Control In grupbox1.splitContainer1.Panel1.Controls
                If TypeOf elemento Is NumericUpDown Then
                    If elemento.Name = "NumericUpDown" & i & 1 Then
                        Dim datos2 As New MySqlDataAdapter("SELECT fab_val FROM juegoprincipal, fabricas WHERE juegoprincipal.jue_id=fabricas.jue_id AND juegoprincipal.jue_id=" & cmbJuegos.SelectedValue & " AND fabricas.fab_pos=" & i, con.conexion)
                        con.conectar()
                        datos2.Fill(tablanumeric)
                        con.cerrar()
                        row = tablanumeric.Rows(tablanumeric.Rows.Count - 1)
                        elemento.Text = Val((row("fab_val")))
                    End If
                End If
            Next
        Next
        For i = 1 To grupbox1.NumBodegas.Value
            For Each elemento As Control In grupbox1.splitContainer1.Panel1.Controls
                If TypeOf elemento Is NumericUpDown Then
                    If elemento.Name = "NumericUpDow1" & i Then
                        Dim datos2 As New MySqlDataAdapter("SELECT bod_val FROM juegoprincipal, bodegas WHERE juegoprincipal.jue_id=bodegas.jue_id AND juegoprincipal.jue_id=" & cmbJuegos.SelectedValue & " AND bodegas.bod_pos=" & i, con.conexion)
                        con.conectar()
                        datos2.Fill(tablaJuego)
                        con.cerrar()
                        row = tablaJuego.Rows(tablaJuego.Rows.Count - 1)
                        elemento.Text = Val((row("bod_val")))
                    End If
                End If
            Next
        Next

        Me.Close()
        'con estas lineas se arregla lo del costo y verificacion al cargar juego
        PanelAMatriz()

        grupbox1.Btnverif.Enabled = True
        'calcular_costo()

    End Sub

    Private Sub cmbJuegos_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbJuegos.SelectedIndexChanged
        Label1.Text = obtenerMetodoJuego(cmbJuegos.SelectedValue.ToString)
    End Sub
End Class